home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 January - Disc 2 / Macworld (1999-01) (Disk 2).dmg / Serious Demos / Symbolic Composer 4.2 / Environment / Projects / Neurons / Make-Rhythm Neuron < prev    next >
Encoding:
Text File  |  1998-10-26  |  816 b   |  29 lines  |  [TEXT/ScoM]
  1. (def-neuron make-rhythm1
  2.  (in 1 'a) '1/4
  3.  (in 1 'b) '(1/8 1/8)
  4.  (in 1 'c) '(-1/8 1/8)
  5.  (in 1 'd) '(1/16 1/8 1/16)
  6.  (in 1 'e) '(1/16 1/16 1/16 1/16)
  7.  (in 1 'f) '(1/8 1/16 1/16)
  8.  (in 1 'g) '(1/16 1/16 1/8)
  9.  (in 1 'h) '(-1/8 1/16 1/16)
  10.  (in 1 'i) '(1/16 1/16 -1/8)
  11.  (in 1 'j) '(1/16 1/16 -1/16 1/16)
  12.  (in 1 'k) '(1/16 1/16 1/16 1/16)
  13.  (in 1 'l) '(1/16 -1/16 -1/16 1/16)
  14.  (in 1 'm) '(-1/16 1/16 1/16 -1/16)
  15.  (in 1 'n) '(-1/16 -1/16 -1/16 1/16)
  16.  (in 1 'o) '(-1/16 1/16 -1/16 -1/16)
  17.  (in 1 'p) '(-1/16 1/16 -1/16 1/16)
  18.  (in 1 'q) '(1/8t 1/8t 1/8t)
  19.  (in 1 'r) '(1/4t 1/8t)
  20.  (in 1 's) '(1/8t 1/4t)
  21.  (in 1 't) '(1/16t 1/16t 1/16t 1/16t 1/16t 1/16t) 
  22.  (in 1 'u) '(1/4t 1/4t 1/4t)
  23.  (otherwise '(1/32 1/32 1/32 1/32 1/32 1/32 1/32 1/32))
  24. )
  25.  
  26. (run-neuron 'make-rhythm1
  27.             '(a b c d e f g h i j k l m n o p q r s t u v)
  28. )
  29.